home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 - Expo 2000 / Image.iso / t-online / show / xtras / ffxtras / -ffdesig.dir / 00002_Initialization Scripts.ls < prev    next >
Encoding:
Text File  |  1996-03-15  |  15.0 KB  |  458 lines
  1. on startMovie
  2.   global dgBlueColor, dgYellowColor, dgDkBlueColor
  3.   set dgBlueColor to the foreColor of member "blueModel"
  4.   set dgYellowColor to the foreColor of member "yellowModel"
  5.   set dgDkBlueColor to the foreColor of member "dkBlueModel"
  6.   initCreate()
  7. end
  8.  
  9. on stopMovie
  10.   closeCreate()
  11. end
  12.  
  13. on closeWindow
  14.   set theList to the windowList
  15.   repeat with i = 1 to count(theList)
  16.     set theItem to string(getAt(theList, i))
  17.     delete word 1 of theItem
  18.     delete char 1 of theItem
  19.     set theChar to the number of chars in theItem
  20.     delete char theChar - 1 to theChar of theItem
  21.     if (theItem contains "Database Designer") or (theItem contains "FFDESIG") then
  22.       forget(window theItem)
  23.     end if
  24.   end repeat
  25.   tell the stage
  26.     puppetPalette(0)
  27.   end tell
  28.   tell the stage
  29.     updateStage()
  30.   end tell
  31. end
  32.  
  33. on initCreate
  34.   global topPointsToLine, baseSprite, spriteArray, dgBlueColor, dgYellowColor
  35.   set baseSprite to 28
  36.   puppetSprite(23, 1)
  37.   set the loc of sprite 23 to point(228, 356)
  38.   puppetSprite(45, 1)
  39.   puppetSprite(46, 1)
  40.   puppetSprite(47, 1)
  41.   locHide(45)
  42.   locHide(46)
  43.   locHide(47)
  44.   hideDefineField()
  45.   put EMPTY into field "visNameList"
  46.   put EMPTY into field "visTypeList"
  47.   put EMPTY into field "visWidthList"
  48.   put EMPTY into field "visDecimalsList"
  49.   put EMPTY into field "masterNameList"
  50.   put EMPTY into field "masterTypeList"
  51.   put EMPTY into field "masterWidthList"
  52.   put EMPTY into field "masterDecimalsList"
  53.   set the textHeight of member "visNameList" to 16
  54.   set the textHeight of member "visTypeList" to 16
  55.   set the textHeight of member "visWidthList" to 16
  56.   set the textHeight of member "visDecimalsList" to 16
  57.   set the textSize of member "visNameList" to 12
  58.   set the textSize of member "visTypeList" to 12
  59.   set the textSize of member "visWidthList" to 12
  60.   set the textSize of member "visDecimalsList" to 12
  61.   set the foreColor of member "visNameList" to dgYellowColor
  62.   set the foreColor of member "visTypeList" to dgYellowColor
  63.   set the foreColor of member "visWidthList" to dgYellowColor
  64.   set the foreColor of member "visDecimalsList" to dgYellowColor
  65.   set topPointsToLine to 1
  66.   set the loc of sprite baseSprite to point(-29, -9)
  67.   set the loc of sprite (baseSprite + 1) to point(291, 186)
  68.   set the loc of sprite (baseSprite + 2) to point(274, 262)
  69.   set the loc of sprite (baseSprite + 3) to point(437, 80)
  70.   set the loc of sprite (baseSprite + 4) to point(369, 79)
  71.   set the loc of sprite (baseSprite + 5) to point(257, 245)
  72.   set the loc of sprite (baseSprite + 6) to point(413, 188)
  73.   set the loc of sprite (baseSprite + 7) to point(334, 161)
  74.   set the loc of sprite (baseSprite + 8) to point(369, 151)
  75.   set the loc of sprite (baseSprite + 9) to point(374, 195)
  76.   set the loc of sprite (baseSprite + 10) to point(286, 163)
  77.   set the loc of sprite (baseSprite + 11) to point(288, 214)
  78.   set the loc of sprite (baseSprite + 12) to point(269, 107)
  79.   repeat with i = baseSprite to baseSprite + 12
  80.     locHide(i)
  81.   end repeat
  82. end
  83.  
  84. on closeCreate
  85.   locHide(45)
  86.   locHide(46)
  87.   locHide(47)
  88.   puppetSprite(45, 0)
  89.   puppetSprite(46, 0)
  90.   puppetSprite(47, 0)
  91.   puppetSprite(23, 0)
  92.   put EMPTY into field "visNameList"
  93.   put EMPTY into field "visTypeList"
  94.   put EMPTY into field "visWidthList"
  95.   put EMPTY into field "visDecimalsList"
  96.   put EMPTY into field "masterNameList"
  97.   put EMPTY into field "masterTypeList"
  98.   put EMPTY into field "masterWidthList"
  99.   put EMPTY into field "masterDecimalsList"
  100. end
  101.  
  102. on showDefineField panel
  103.   global baseSprite, fieldSpec, keyEditOK
  104.   locHide(45)
  105.   locHide(46)
  106.   locHide(47)
  107.   updateStage()
  108.   set baseSprite to 28
  109.   repeat with i = baseSprite to baseSprite + 12
  110.     puppetSprite(i, 1)
  111.   end repeat
  112.   updateStage()
  113.   locShow(baseSprite)
  114.   locShow(baseSprite + 1)
  115.   set theType to word 1 of panel
  116.   case theType of
  117.     "text":
  118.       set fieldSpec to ",C,25"
  119.     "numeric":
  120.       set fieldSpec to ",N,3,2"
  121.     "boolean":
  122.       set fieldSpec to ",L"
  123.     "memo":
  124.       set fieldSpec to ",M"
  125.     "date":
  126.       set fieldSpec to ",D"
  127.   end case
  128.   setDefineField()
  129.   set keyEditOK to 1
  130. end
  131.  
  132. on setDefineField
  133.   global baseSprite, fieldSpec, dgDkBlueColor
  134.   set the itemDelimiter to ","
  135.   set theName to item 1 of fieldSpec
  136.   if theName = EMPTY then
  137.     put "_" into field "FieldEntry"
  138.   else
  139.     put theName into field "FieldEntry"
  140.   end if
  141.   set theType to item 2 of fieldSpec
  142.   if (theType = "C") or (theType = "N") then
  143.     set theWidth to item 3 of fieldSpec
  144.   end if
  145.   if theType = "N" then
  146.     set theDecimals to item 4 of fieldSpec
  147.   end if
  148.   case theType of
  149.     "C":
  150.       set the loc of sprite (baseSprite + 2) to point(274, 262)
  151.     "N":
  152.       set the loc of sprite (baseSprite + 2) to point(312, 262)
  153.     "L":
  154.       set the loc of sprite (baseSprite + 2) to point(350, 262)
  155.     "D":
  156.       set the loc of sprite (baseSprite + 2) to point(388, 262)
  157.     "M":
  158.       set the loc of sprite (baseSprite + 2) to point(426, 262)
  159.     otherwise:
  160.       set the loc of sprite (baseSprite + 2) to point(274, 262)
  161.   end case
  162.   locShow(baseSprite + 3)
  163.   locShow(baseSprite + 4)
  164.   locShow(baseSprite + 5)
  165.   set the text of member "widthData" to EMPTY
  166.   set the text of member "decimalsData" to EMPTY
  167.   locHide(baseSprite + 8)
  168.   locHide(baseSprite + 9)
  169.   locShow(baseSprite + 10)
  170.   locShow(baseSprite + 11)
  171.   set the textStyle of member "decimalsData" to "bold"
  172.   set the textFont of member "decimalsData" to "helvetica"
  173.   set the textSize of member "decimalsData" to 9
  174.   set the textStyle of member "widthData" to "bold"
  175.   set the textFont of member "widthData" to "helvetica"
  176.   set the textSize of member "widthData" to 9
  177.   set the textAlign of member "widthData" to "right"
  178.   set the textAlign of member "decimalsData" to "right"
  179.   set the foreColor of member "decimalsData" to dgDkBlueColor
  180.   set the foreColor of member "widthData" to dgDkBlueColor
  181.   if theType = "C" then
  182.     locShow(baseSprite + 8)
  183.     locShow(baseSprite + 6)
  184.     fieldWidthValue(theWidth, 255)
  185.     locHide(baseSprite + 10)
  186.   end if
  187.   if theType = "N" then
  188.     locShow(baseSprite + 8)
  189.     locShow(baseSprite + 9)
  190.     locShow(baseSprite + 6)
  191.     fieldWidthValue(theWidth, 10)
  192.     locShow(baseSprite + 7)
  193.     decimalsWidthValue(theDecimals, 8)
  194.     locHide(baseSprite + 10)
  195.     locHide(baseSprite + 11)
  196.   end if
  197.   locShow(baseSprite + 12)
  198.   updateStage()
  199. end
  200.  
  201. on hideDefineField
  202.   global baseSprite, spriteArray, keyEditOK
  203.   set keyEditOK to 0
  204.   set baseSprite to 28
  205.   repeat with i = baseSprite to baseSprite + 12
  206.     locHide(i)
  207.   end repeat
  208.   updateStage()
  209.   repeat with i = baseSprite to baseSprite + 12
  210.     puppetSprite(i, 0)
  211.   end repeat
  212. end
  213.  
  214. on fieldWidthValue width, widthMax
  215.   global fieldSpec, dgDkBlueColor, baseSprite
  216.   locHide(baseSprite + 6)
  217.   set dragY to 173
  218.   set dragMin to 136
  219.   set dragMax to 439
  220.   set zoneSize to dragMax - dragMin
  221.   set perItemWidth to float(zoneSize) / float(widthMax)
  222.   if width < 1 then
  223.     set width to 1
  224.   end if
  225.   set pixelsOver to float(width) * float(perItemWidth)
  226.   set theX to dragMin + integer(pixelsOver)
  227.   set the loc of sprite (baseSprite + 6) to point(theX, dragY)
  228.   set the text of member "widthData" to string(integer(width))
  229.   put string(integer(width)) into item 3 of fieldSpec
  230.   set the textStyle of member "widthData" to "bold"
  231.   set the textFont of member "widthData" to "helvetica"
  232.   set the textSize of member "widthData" to 9
  233.   set the textAlign of member "widthData" to "right"
  234.   set the foreColor of member "widthData" to dgDkBlueColor
  235. end
  236.  
  237. on fieldWidthPixel Xcoord, widthMax
  238.   global baseSprite, fieldSpec, dgDkBlueColor
  239.   set dragY to 173
  240.   set dragMin to 136
  241.   set dragMax to 439
  242.   set zoneSize to dragMax - dragMin
  243.   set perItemWidth to float(zoneSize) / float(widthMax)
  244.   if Xcoord < dragMin then
  245.     set Xcoord to dragMin
  246.   end if
  247.   if Xcoord > dragMax then
  248.     set Xcoord to dragMax
  249.   end if
  250.   set Xoffset to Xcoord - dragMin
  251.   set width to integer(float(Xoffset) / float(perItemWidth))
  252.   if width < 1 then
  253.     set width to 1
  254.   end if
  255.   set pixelsOver to float(width) * float(perItemWidth)
  256.   set theX to dragMin + integer(pixelsOver)
  257.   set the loc of sprite (baseSprite + 6) to point(theX, dragY)
  258.   set the text of member "widthData" to string(integer(width))
  259.   put string(integer(width)) into item 3 of fieldSpec
  260.   set the textStyle of member "widthData" to "bold"
  261.   set the textFont of member "widthData" to "helvetica"
  262.   set the textSize of member "widthData" to 9
  263.   set the textAlign of member "widthData" to "right"
  264.   set the foreColor of member "widthData" to dgDkBlueColor
  265.   updateStage()
  266. end
  267.  
  268. on decimalsWidthValue width, widthMax
  269.   global baseSprite, dgDkBlueColor
  270.   locHide(baseSprite + 7)
  271.   set dragY to 217
  272.   set dragMin to 241
  273.   set dragMax to 439
  274.   set zoneSize to dragMax - dragMin
  275.   set perItemWidth to float(zoneSize) / float(widthMax)
  276.   set pixelsOver to float(width) * float(perItemWidth)
  277.   set theX to dragMin + integer(pixelsOver)
  278.   set the loc of sprite (baseSprite + 7) to point(theX, dragY)
  279.   set the text of member "decimalsData" to string(integer(width))
  280.   put string(integer(width)) into item 4 of fieldSpec
  281.   set the textStyle of member "decimalsData" to "bold"
  282.   set the textFont of member "decimalsData" to "helvetica"
  283.   set the textAlign of member "decimalsData" to "right"
  284.   set the textSize of member "decimalsData" to 9
  285.   set the foreColor of member "decimalsData" to dgDkBlueColor
  286. end
  287.  
  288. on decimalsWidthPixel Xcoord, widthMax
  289.   global baseSprite, fieldSpec, dgDkBlueColor
  290.   set dragY to 217
  291.   set dragMin to 241
  292.   set dragMax to 439
  293.   set zoneSize to dragMax - dragMin
  294.   set perItemWidth to float(zoneSize) / float(widthMax)
  295.   if Xcoord < dragMin then
  296.     set Xcoord to dragMin
  297.   end if
  298.   if Xcoord > dragMax then
  299.     set Xcoord to dragMax
  300.   end if
  301.   set Xoffset to Xcoord - dragMin
  302.   set width to integer(float(Xoffset) / float(perItemWidth))
  303.   set pixelsOver to float(width) * float(perItemWidth)
  304.   set theX to dragMin + integer(pixelsOver)
  305.   set the loc of sprite (baseSprite + 7) to point(theX, dragY)
  306.   set the text of member "decimalsData" to string(integer(width))
  307.   put string(integer(width)) into item 4 of fieldSpec
  308.   set the textStyle of member "decimalsData" to "bold"
  309.   set the textFont of member "decimalsData" to "helvetica"
  310.   set the textSize of member "decimalsData" to 9
  311.   set the textAlign of member "decimalsData" to "right"
  312.   set the foreColor of member "decimalsData" to dgDkBlueColor
  313.   updateStage()
  314. end
  315.  
  316. on locHide theSprite
  317.   global spriteArray
  318.   set the itemDelimiter to "|"
  319.   set thePoint to the loc of sprite theSprite
  320.   if thePoint <> point(-900, -900) then
  321.     put string(thePoint) into item theSprite of spriteArray
  322.     set the loc of sprite theSprite to point(-900, -900)
  323.   end if
  324.   set the itemDelimiter to ","
  325. end
  326.  
  327. on locShow theSprite
  328.   global spriteArray
  329.   set the itemDelimiter to "|"
  330.   set theStringPoint to item theSprite of spriteArray
  331.   set the loc of sprite theSprite to value(theStringPoint)
  332.   set the itemDelimiter to ","
  333. end
  334.  
  335. on initIndex
  336.   global topPointsToLine, baseSprite, spriteArray, dgYellowColor, dgDkBlueColor
  337.   puppetSprite(23, 1)
  338.   set the loc of sprite 23 to point(358, 300)
  339.   updateStage()
  340.   puppetSprite(45, 1)
  341.   puppetSprite(46, 1)
  342.   puppetSprite(47, 1)
  343.   locHide(45)
  344.   locHide(46)
  345.   locHide(47)
  346.   put EMPTY into field "visNameList"
  347.   put EMPTY into field "visTypeList"
  348.   put EMPTY into field "visWidthList"
  349.   put EMPTY into field "visDecimalsList"
  350.   put EMPTY into field "masterNameList"
  351.   put EMPTY into field "masterTypeList"
  352.   put EMPTY into field "masterWidthList"
  353.   put EMPTY into field "masterDecimalsList"
  354.   put EMPTY into field "indexExpr"
  355.   set the textHeight of member "visNameList" to 16
  356.   set the textHeight of member "visTypeList" to 16
  357.   set the textHeight of member "visWidthList" to 16
  358.   set the textHeight of member "visDecimalsList" to 16
  359.   set the textSize of member "visNameList" to 12
  360.   set the textSize of member "visTypeList" to 12
  361.   set the textSize of member "visWidthList" to 12
  362.   set the textSize of member "visDecimalsList" to 12
  363.   set the foreColor of member "visNameList" to dgYellowColor
  364.   set the foreColor of member "visTypeList" to dgYellowColor
  365.   set the foreColor of member "visWidthList" to dgYellowColor
  366.   set the foreColor of member "visDecimalsList" to dgYellowColor
  367.   set topPointsToLine to 1
  368.   set the loc of sprite baseSprite to point(-29, -9)
  369.   set the loc of sprite (baseSprite + 1) to point(291, 186)
  370.   set the loc of sprite (baseSprite + 3) to point(437, 80)
  371.   locHide(baseSprite)
  372.   locHide(baseSprite + 1)
  373.   locHide(baseSprite + 3)
  374.   set the loc of sprite 14 to point(343, 192)
  375.   locHide(14)
  376.   put "This area is used to construct an index expression:" into field "indexMessage"
  377.   set the foreColor of member "indexMessage" to dgDkBlueColor
  378.   set the textSize of member "indexMessage" to 9
  379.   set the textStyle of member "indexMessage" to "bold"
  380.   set the textFont of member "indexMessage" to "Helvetica"
  381.   updateStage()
  382. end
  383.  
  384. on closeIndex
  385.   locHide(45)
  386.   locHide(46)
  387.   locHide(47)
  388.   puppetSprite(45, 0)
  389.   puppetSprite(46, 0)
  390.   puppetSprite(47, 0)
  391.   puppetSprite(23, 0)
  392.   put EMPTY into field "visNameList"
  393.   put EMPTY into field "visTypeList"
  394.   put EMPTY into field "visWidthList"
  395.   put EMPTY into field "visDecimalsList"
  396.   put EMPTY into field "masterNameList"
  397.   put EMPTY into field "masterTypeList"
  398.   put EMPTY into field "masterWidthList"
  399.   put EMPTY into field "masterDecimalsList"
  400.   put "This area used to construct an index expression:" into field "indexMessage"
  401. end
  402.  
  403. on moveIt theSprite, theLoc
  404.   set the loc of sprite theSprite to theLoc
  405.   updateStage()
  406. end
  407.  
  408. on initBrowse
  409.   global topPointsToLine, baseSprite, spriteArray, dgYellowColor, dgDkBlueColor
  410.   puppetSprite(23, 1)
  411.   set the loc of sprite 23 to point(-900, -900)
  412.   updateStage()
  413.   puppetSprite(45, 1)
  414.   puppetSprite(46, 1)
  415.   puppetSprite(47, 1)
  416.   locHide(45)
  417.   locHide(46)
  418.   locHide(47)
  419.   put EMPTY into field "visNameList"
  420.   put EMPTY into field "visContentList"
  421.   put EMPTY into field "masterNameList"
  422.   put EMPTY into field "masterContentList"
  423.   set the textHeight of member "visNameList" to 16
  424.   set the textHeight of member "visContentList" to 16
  425.   set the textSize of member "visNameList" to 12
  426.   set the textSize of member "visContentList" to 12
  427.   set the foreColor of member "visNameList" to dgYellowColor
  428.   set the foreColor of member "visContentList" to dgYellowColor
  429.   set topPointsToLine to 1
  430.   set the loc of sprite baseSprite to point(-29, -9)
  431.   set the loc of sprite (baseSprite + 1) to point(291, 186)
  432.   set the loc of sprite (baseSprite + 3) to point(437, 80)
  433.   locHide(baseSprite)
  434.   locHide(baseSprite + 1)
  435.   locHide(baseSprite + 3)
  436.   put EMPTY into field "browseMessage"
  437.   set the foreColor of member "browseMessage" to dgDkBlueColor
  438.   set the textSize of member "browseMessage" to 9
  439.   set the textStyle of member "browseMessage" to "bold"
  440.   set the textFont of member "browseMessage" to "Helvetica"
  441.   updateStage()
  442. end
  443.  
  444. on closeBrowse
  445.   global dgDkBlueColor
  446.   puppetSprite(23, 0)
  447.   puppetSprite(23, 0)
  448.   put EMPTY into field "visNameList"
  449.   put EMPTY into field "visContentList"
  450.   put EMPTY into field "masterNameList"
  451.   put EMPTY into field "masterContentList"
  452.   put EMPTY into field "browseMessage"
  453.   set the foreColor of member "browseMessage" to dgDkBlueColor
  454.   set the textSize of member "browseMessage" to 9
  455.   set the textStyle of member "browseMessage" to "bold"
  456.   set the textFont of member "browseMessage" to "Helvetica"
  457. end
  458.